Mapa

Row

Título del mapa

Row

DE 10 EL MAPA FUA CHAVAL

mi mapa depasiado fresco siiiuuuu

el mapazo

fresquisimo el mapa

PICALE OTRA VEZ

Row

---
title: "EL MAPAZO SIIUUU"
author: "EDUARDO CHAVEZ"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    favicon: escudo.jpg
    logo: bodoque.jpg
    fig_mobile: TRUE
    theme: cosmo
    social: menu
    source_code: embed
    navbar:
      
      - {title: "PICALE", href: "https://www.youtube.com/watch?v=xvFZjo5PgG0", align: right, icon: fa-school}
---

```{r global, include=FALSE}
library(leaflet)
library(leaflet.extras)
```

Mapa {data-icon="fa-map"}
=====================================

Row
-----------------------------------------------------------------------

### Título del mapa

```{r}
### Registramos la información de los lugares
lugar1 <- c(Nombre = "queretaro", Giro = "esta cerca", longitud = -100.392, latitud = 20.5931)
lugar2 <- c(Nombre = "merida", Giro = "se ve fresco ahi", longitud = -89.62, latitud = 20.97)
lugar3 <- c(Nombre = "monterrey", Giro = "carnita asada", longitud = -100.309, latitud = 25.6714)
lugar4 <- c(Nombre = "el camaleon mayakoba", Giro = "campo de golf", longitud =  -87.0221416, latitud =20.6817054 )
lugar5 <- c(Nombre = "sanm miguel", Giro = "esta fresco x2", longitud = -100.744, latitud = 20.9142)
lugar6 <- c(Nombre = "palmilla to&o", Giro = "campo de golf", longitud = -109.7327783 , latitud = 23.0183157)

### Creamos una tabla de datos con la información de los lugares
lugares <- data.frame(rbind(lugar1, lugar2, lugar3, lugar4, lugar5, lugar6))

### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)

### Creamos el mapa
mapa <- leaflet(lugares) %>% setView(lng = -99.3, lat = 19.4, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "", "Nombre:", lugares$Nombre, "Giro:", lugares$Giro)) 

### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa
mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions())) 

### Imprimimos el mapa
mapa
```



Row
-----------------------------------------------------------------------

### DE 10 EL MAPA FUA CHAVAL 

mi mapa depasiado fresco siiiuuuu

*el mapazo*

**fresquisimo el mapa**





[PICALE OTRA VEZ](https://www.youtube.com/watch?v=xvFZjo5PgG0)



Row
-----------------------------------------------------------------------